Дан текст. Сколько в нём слов «что» — Pascal(Паскаль)

Program string_19;

uses crt;

var
  a: string;
  i, l, k: longint;

label m;

begin
  clrscr;
  write('введите предложение: ');
  readln(a);
  l := length(a);
m:
  for i := 1 to l do
    if (a[i] = 'ч') and (a[i + 1] = 'т') and (a[i + 2] = 'о') then
    begin
      l := l - 3;
      delete(a, i, 3);
      inc(k);
      goto m;
    end;
  write('кол-во слов "что": ', k);
  readln;

end.